home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / mus / misc / HDFreQ38_092.lha / HD_Freq / Deutsch < prev    next >
Text File  |  1980-01-01  |  4KB  |  183 lines
  1. ; $VER: HDF Install V 2.1 (04.03.95)
  2. ; Script to install HD Frequency
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7.  
  8.  
  9. (set #bad-kick
  10. (cat "Zur Installation von HD Frequency ist mindestens Kickstart 2.04 "
  11.      "erforderlich."
  12. ))
  13.  
  14. (set #introduction
  15. (cat "\n\nDieses Programm installiert HD Frequency Release 2 "
  16.      "auf Ihre Festplatte.\n\n"
  17.      "Bitte lesen Sie vor der Installation genau Ihr Handbuch durch, "
  18.      "damit Sie anschließend die richtige Programmversion installieren."
  19.      ))
  20.  
  21. (set #ask-function
  22. (cat "Bitte wählen Sie die Programmversion aus, die "
  23.      "Sie installieren möchten :"
  24. ))
  25.  
  26. (set #ask-function-help
  27. (cat "Hier können Sie sich die Programmversion"
  28.      "installieren, die für Ihre Anwendungen am besten erscheint.\n"
  29.      "Die 68000 1 MB Version benötigt mindestens 310 kB Chip und 450 kB"
  30.      " anderen Speicher\n"
  31.      " Die 68000e Version ist für die AGA Rechner gedacht und für"
  32.      " diejnigen, denen 30kHz sample Rate auf einem nicht AGA "
  33.      "Rechner reichen\n"
  34.  
  35.      "Die 68030 Version ermöglicht es, auf einem OCS/ECS Rechner"
  36.      " mehrere Samples >30kHz abzuspielen. Dafür ist ein SEHR "
  37.      "schneller Prozessor (68030 >25MHz) erforderlich.\n"
  38.      " Nähere Informationen finden Sie in Ihrem Handbuch."
  39. ))
  40.  
  41. (set #ask-function-1
  42. (cat "68000 1 MB Version"
  43. ))
  44.  
  45. (set #ask-function-2
  46. (cat "68000 2 MB Version (für AGA Rechner)"
  47. ))
  48.  
  49. (set #ask-function-3
  50. (cat "68020 2 MB Version"
  51. ))
  52.  
  53. (set #which-disk
  54. (cat "Wohin soll HD-Frequency installiert werden ?"
  55. ))
  56.  
  57. (set #which-disk-help
  58. (cat ""
  59. ))
  60.  
  61. ;=============================================================================
  62. ; make sure we are running under V37
  63.  
  64. (if (< (/ (getversion) 65536) 37)
  65.  
  66.  
  67. (
  68.     (abort #bad-kick)
  69. ))
  70.  
  71. (set old_wb
  72. (cat    "Work:"
  73. ))
  74.  
  75. (set old_wb (substr old_wb 0 (- (strlen old_wb) 1)))
  76. (set old_wb (expandpath old_wb))
  77. (user 2)
  78.  
  79.  
  80. ;=============================================================================
  81.  
  82.  
  83. (message #introduction)
  84.  
  85. (set motorola 0)
  86.  
  87. (set motorola (askchoice (prompt #ask-function)
  88.               (help #ask-function-help)
  89.              (choices #ask-function-1 #ask-function-2
  90.                       #ask-function-3
  91.              )
  92.              (default 0)
  93.     )
  94. )
  95.  
  96.  
  97.  
  98. (user 0)
  99. (set old_level @user-level)
  100.  
  101. ;=============================================================================
  102.  
  103. (if (= (strlen old_wb) 0)
  104. (
  105.     (user 2)
  106.     (set target (askdir (prompt #which-disk)
  107.                         (help #askdir-help)
  108.                         (default "work:")
  109.                         (disk)
  110.                 )
  111.     )
  112.     (user old_level)
  113. )
  114. (
  115.     (if (askbool (prompt (#confirm-target old_wb))
  116.                  (default 1)
  117.         )
  118.     (
  119.         (set target old_wb)
  120.     )
  121.     (
  122.         (set target (askdir (prompt #which-disk)
  123.                             (help #which-disk-help)
  124.                             (default old_wb)
  125.                             (disk)
  126.                     )
  127.         )
  128.     ))
  129. ))
  130.  
  131.  
  132. (set @default-dest target)
  133. (set stash_old (tackon target "old")
  134. )
  135.  
  136.  
  137.         
  138.             (if (= 0 motorola)
  139.             (
  140.                 (copyfiles (source
  141.                            (cat "HDFrequency_68000"))
  142.                            (dest (tackon target "HDFrequency"))
  143.                 )
  144.                 (copyfiles (source
  145.                            (cat "HDFrequency_68000.info"))
  146.                            (dest (tackon target "HDFrequency"))
  147.                 )
  148.             ))
  149.               
  150.                 (if (= 1 motorola)
  151.             (
  152.                 (copyfiles (source
  153.                            (cat "HDFrequency_68000e"))
  154.                            (dest (tackon target "HDFrequency"))
  155.                 )
  156.                 (copyfiles (source
  157.                            (cat "HDFrequency_68000e.info"))
  158.                            (dest (tackon target "HDFrequency"))
  159.                 )
  160.             ))
  161.  
  162.                 (if (= 2 motorola)
  163.             (
  164.                 (copyfiles (source
  165.                            (cat "HDFrequency_68020"))
  166.                            (dest (tackon target "HDFrequency"))
  167.                 )
  168.                 (copyfiles (source
  169.                            (cat "HDFrequency_68020.info"))
  170.                            (dest (tackon target "HDFrequency"))
  171.                 )
  172.             ))
  173.  
  174.  
  175. ; copy drawer icon
  176. (copyfiles (source
  177.                            (cat "HDFrequency.info"))
  178.                            (dest (tackon target ""))
  179.                 )      
  180. (complete 100)
  181.  
  182.  
  183.